home *** CD-ROM | disk | FTP | other *** search
- on MouseClick
- global gBoutons, gNumSpr, g1erSprLoc, gLabel, gMessDef1, gEtudAct, gLocLabel
- if gEtudAct <> "lec" then
- curseur(6)
- set gLabel to "DE:lec"
- set the text of cast "titre" to gMessDef1
- set gLocLabel to "DE:OU" && gEtudAct
- set gEtudAct to "lec"
- end if
- end
-
- on mouseDown
- global gBoutons, gNumSpr, g1erSprLoc
- set gNumSpr to g1erSprLoc + 9
- gBoutons(appuie, gNumSpr)
- end
-
- on mouseUp
- global gBoutons, gNumSpr, g1erSprLoc, gLabel, gMessDef1, gEtudAct
- curseur(1)
- set monNumSpr to g1erSprLoc + 9
- if gNumSpr = monNumSpr then
- if the doubleClick then
- else
- MouseClick()
- end if
- gBoutons(relache, gNumSpr)
- else
- pass()
- end if
- end
-